PL1=0
DO WHILE PL1=0
  set colo to bg+/b,w+/n
  @ 7, 1 CLEA TO 23,78
  SET COLOR TO W+/N
  @ 9,5 CLEA TO 23,42
  SET COLO TO N/BG,w+/n
  @ 8, 3 CLEA TO 22,40
  @ 8, 3 TO 22, 40   DOUBLE
  @ 10, 5 PROMPT "A. PRINT MEDICAL PROCEDURE"
  @ 12, 5 PROMPT "B. PRINT ALL DRUGS LIST "
  @ 14, 5 PROMPT "C. PRINT NEW PRICE DRUGS LIST "
  @ 16, 5 PROMPT "D. PRINT DISPOSABLE LIST "
  @ 18, 5 PROMPT "E. PRINT NEW PRICE DISPOSABLE LIST "
  @ 20, 5 PROMPT "X. END OF SESSION"
   MENU TO PL1
   SET COLO TO BG+/B,w+/n
   DO CASE
      CASE PL1=1
         DO MEDPRIN
      CASE PL1=2
         DO DRUPRIN
      CASE PL1=3
         DO DRUSPRIN
      CASE PL1=4
         DO DISPRIN
      CASE PL1=5
         DO DISSPRIN
      CASE PL1=6 .OR. LASTKEY()=27
         CLEA
         return
   ENDCASE
ENDDO
